home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs05.d81 / label3.prg (.txt) < prev   
Commodore BASIC  |  2009-10-10  |  5KB  |  148 lines
  1. 5 PRINT"[144]":GOSUB3000
  2. 10 CLR:PRINT CHR$(147):POKE 53280,1:POKE 53281,1:PRINT CHR$(28):PRINT CHR$(14)
  3. 60 PRINT"[212]HIS PROGRAM SAVES AND RETRIEVES LABEL  FILES BY THE [204][193][211][212] NAME OF THE"
  4. 61 PRINT"LABEL BEING PRINTED.  [211]O WHEN THE       PROGRAM ASKS FOR THE LAST NAME"
  5. 62 PRINT"OF THE LABEL TO PRINT, PREVIEW, OR      DELETE, YOU MUST TYPE IT IN "
  6. 63 PRINT"EXACTLY THE SAME WAY AS WHEN YOU        CREATED THE LABEL.  [201]F YOU"
  7. 64 PRINT"CAPITALIZED THE FIRST LETTER OF THE LASTNAME WHEN YOU CREATED THE"
  8. 65 PRINT"LABEL, THEN YOU MUST DO THE SAME THING  WHEN RE-ENTERING THE NAME"
  9. 67 PRINT"       [208]RESS ANY KEY TO CONTINUE"
  10. 68 GET P$:IF P$="" THEN 68
  11. 70 PRINT:PRINT:PRINT:PRINT:PRINT:PRINTCHR$(147):PRINT"[205]AIN [205]ENU"
  12. 71 PRINTCHR$(28)
  13. 80 POKE 53280,1:POKE 53281,1:PRINT"1[146] - [195]REATE A [206]EW [204]ABEL"
  14. 90 PRINT"2[146] - [208]RINT AN [197]XISTING [204]ABEL"
  15. 100 REM:PRINT"3[146] - CHANGE AN EXISTING LABEL"
  16. 105 PRINT"4[146] - [209]UIT [208]ROGRAM
  17. 106 [153]"5WAIT - (null)REVIEW A (null)ABEL (null)RIOR TO (null)RINTING"
  18. 107 [153]"6WAIT - STR$ELETE AN VALXISTING (null)ABEL"
  19. 110 [133]"(null)RESS THE ATNPPROPRIATE (null)UMBER";P
  20. 120 [139] P[179]1 [176] P[177]6 [167] [153]"RIGHT$NVALID LENHOICE, (null)RY ATNGAIN":[137]110
  21. 130 [139] P[178]2 [167] [137] 280
  22. 140 [139] P[178]3 [167] [137] 460
  23. 145 [139] P[178]4 [167] [137]460
  24. 146 [139] P[178]5 [167]640
  25. 147 [139] P[178]6 [167]530
  26. 149 [143]******NEW******
  27. 150 [153] [199](147)
  28. 160 [133]"VALNTER YOUR FIRST NAME & MIDDLE INITIAL";NAME$
  29. 170 [133]"VALNTER YOUR LAST NAME";LAST$
  30. 180 [133]"VALNTER YOUR STREET ADDRESS";ADDRESS$
  31. 181 [133]"VALNTER YOUR CITY";CITY$
  32. 185 [133]"VALNTER YOUR STATE (ABBREVIATED)";STATE$
  33. 190 [133]"VALNTER YOUR ZIP CODE";ZIP$
  34. 200 [159] 15,8,15
  35. 210 [159] 5,8,5,"0:"[170]LAST$[170]",S,W"
  36. 220 [152]5,NAME$:[152]5,LAST$:[152]5,ADDRESS$:[152]5,CITY$:[152]5,STATE$
  37. 225 [152]5,ZIP$
  38. 230 [160] 5:[160] 15
  39. 240 [141] 5000
  40. 250 [137] 70
  41. 280 [143] *****PRINT*****
  42. 285 [153] [199](147)
  43. 290 [133]"VALNTER THE (null)ASTWAIT NAME OF THE LABEL YOU      WISH TO PRINT";LAST$
  44. 300 [159] 15,8,15:[159] 5,8,5,"0:"[170]LAST$[170]",S,R"
  45. 310 [132]5,NAME$,LAST$,ADDRESS$,CITY$,STATE$,ZIP$
  46. 320 [160] 5:[160] 15
  47. 330 [141] 5000:[143] CHECK ERROR
  48. 340 [153] [199](147)
  49. 350 [133]"LEFT$OW MANY COPIES DO YOU WISH TO PRINT";COPY
  50. 360 [129] NUM [178] 1 [164] COPY
  51. 370 [159] 4,4,7
  52. 380 [157] 4
  53. 390 [152]4,NAME$;" ";LAST$
  54. 400 [152]4,ADDRESS$
  55. 410 [152]4,CITY$;"  ";STATE$;"  ";ZIP$
  56. 420 [152]4:[152]4
  57. 430 [160] 4
  58. 440 [130] NUM
  59. 450 [137] 70
  60. 460 [143] ******QUIT******
  61. 470 [153] [199](147):[153]"ATNRE YOU SURE?  [Y/N]"
  62. 480 [161] P$:[139] P$[178]"" [167] 480
  63. 490 [139] P$[179][177]"Y"[167] 70
  64. 500 [153]"PROGRAM TERMINATED"
  65. 510 [151] 53281,6:[151] 53280,14:[153]"CONT"
  66. 520 [128]
  67. 530 [143]******DELETE******
  68. 540 [153] [199](147)
  69. 550 [133]"ENTER THE LASTWAIT NAME OF THE LABEL YOU WISH TO DELETE";LAST$
  70. 560 [153]"ATNRE YOU SURE?  [Y/N]"
  71. 570 [161] P$:[139] P$ [178] "" [167] 570
  72. 580 [139] P$[178]"N" [167] 70
  73. 590 [159] 15,8,15
  74. 600 [152]15,"S0:"[170]LAST$
  75. 610 [160] 15
  76. 620 [141] 5000
  77. 630 [137] 70
  78. 640 [143]******PREVIEW******
  79. 650 [153] [199](147)
  80. 660 [133]"VALNTER THE LASTWAIT NAME OF THE LABEL YOU WISH TO PREVIEW";LAST$
  81. 670 [159] 15,8,15:[159] 5,8,5,"0:"[170]LAST$[170]",S,R"
  82. 680 [132]5,NAME$,LAST$,ADDRESS$,CITY$,STATE$,ZIP$
  83. 690 [160] 5:[160] 15
  84. 700 [141] 5000
  85. 710 [153] [199](147)
  86. 720 [153]""
  87. 730 [153] NAMES$;"  ";LAST$
  88. 740 [153] ADDRESS$
  89. 750 [153] CITY$;"  ";STATE$;"  ";ZIP$
  90. 760 [153]"(null)RESS ANY KEY TO CONTINUE"
  91. 770 [161] P$:[139] P$[178]"" [167] 770
  92. 780 [137] 70
  93. 3000 [143]******GRAPHIC******
  94. 3010 [153] [199](147):[151] 53280,1:[151] 53281,1:[153] [199](142):[153]"STOP"
  95. 3020 [129]I[178]1026[164]1986 [169] 40:[151] I,71:[130]
  96. 3030 [129] I[178]1030[164]1990 [169] 40:[151]I,71:[130]
  97. 3040 [129] I[178]1061[164]2021 [169] 40:[151]I,71:[130]
  98. 3050 [129] I[178]1057[164]2017 [169] 40:[151]I,71:[130]
  99. 3060 [129] I[178]1028[164]1988 [169] 40:[151]I,81:[130]
  100. 3070 [129] I[178]1059[164]2019 [169] 40:[151]I,81:[130]
  101. 3080 [129] I[178]1031[164]1056:[151]I,45:[130]
  102. 3090 [129] I[178]1991[164]2016:[151]I,45:[130]
  103. 3100 [129] I[178]1351[164]1376:[151]I,45:[130]
  104. 3110 [129] I[178]1671[164]1696:[151]I,45:[130]
  105. 3120 [129] I[178]1671[164]1696:[151]I,45:[130]
  106. 3130 [129] I[178]1027[164]1029:[151]I,45:[130]
  107. 3140 [129] I[178]1058[164]1060:[151]I,45:[130]
  108. 3150 [129] I[178]1347[164]1349:[151]I,45:[130]
  109. 3160 [129] I[178]1378[164]1379:[151]I,45:[130]
  110. 3170 [129] I[178]1667[164]1669:[151]I,45:[130]
  111. 3180 [129] I[178]1698[164]1700:[151]I,45:[130]
  112. 3190 [129] I[178]2018[164]2020:[151]I,45:[130]
  113. 3200 [129] I[178]1113[164]1134:[151]I,119:[130]
  114. 3210 [129] I[178]1273[164]1294:[151]I,111:[130]
  115. 3220 [129] I[178]1433[164]1454:[151]I,119:[130]
  116. 3230 [129] I[178]1593[164]1614:[151]I,111:[130]
  117. 3240 [129] I[178]1753[164]1774:[151]I,119:[130]
  118. 3250 [129] I[178]1913[164]1934:[151]I,111:[130]
  119. 3260 [151]1112,79:[151]1432,79:[151]1752,79
  120. 3270 [151]1272,76:[151]1592,76:[151]1912,76
  121. 3280 [151]1135,80:[151]1455,80:[151]1775,80
  122. 3290 [151]1295,122:[151]1615,122:[151]1935,122
  123. 3300 [129] I[178]1152[164]1232 [169] 40:[151] I,101:[130]
  124. 3310 [129] I[178]1472[164]1552 [169] 40:[151] I,101:[130]
  125. 3320 [129] I[178]1792[164]1872 [169] 40:[151] I,101:[130]
  126. 3330 [129] I[178]1175[164]1255 [169] 40:[151] I,106:[130]
  127. 3340 [129] I[178]1495[164]1575 [169] 40:[151] I,106:[130]
  128. 3350 [129] I[178]1815[164]1895 [169] 40:[151] I,106:[130]
  129. 3360 [151]1195,51:[151]1197,24:[151]1199,49:[151]1202,12:[151]1203,1:[151]1204,2
  130. 3370 [151]1205,5:[151]1206,12:[151]1208,13:[151]1209,1:[151]1210,11:[151]1211,5
  131. 3380 [151]1212,18:[151]1514,23:[151]1515,18:[151]1516,9:[151]1517,20:[151]1518,20
  132. 3390 [151]1519,5:[151]1520,14:[151]1522,2:[151]1523,25:[151]1525,13:[151]1526,46
  133. 3400 [151]1528,8:[151]1529,15:[151]1530,12:[151]1531,12:[151]1532,9:[151]1533,19
  134. 3410 [151]1835,18:[151]1836,5:[151]1837,22:[151]1838,9:[151]1839,19:[151]1840,5
  135. 3420 [151]1841,4:[151]1845,48:[151]1846,50:[151]1847,47:[151]1848,50:[151]1849,54
  136. 3430 [151]1850,47:[151]1851,56:[151]1852,57
  137. 3440 [129] T[178]1 [164] 5000:[130]
  138. 3450 [142]
  139. 5000 [143]******CHECK ERROR CHANNEL******
  140. 5010 [159] 15,8,15:[151] 53280,0:[151] 53281,0:[153] [199](5)
  141. 5020 [132]15,A,B$,C,D
  142. 5030 [139] A[179]20 [167] [160] 15:[142]
  143. 5040 [153]"DISK ERRORWAIT"
  144. 5050 [153]""A,B$;"   ";C;D
  145. 5060 [153]"PRESS ANY KEY TO CONTINUE"
  146. 5070 [161] P$:[139] P$[178]""[167]5070
  147. 5080 [160] 15:[142]
  148.